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QUANDO USAR BLOC OS GRAFICOS 

CQMO COMBINAR BLOCOS 

PARA FORMAR FIGURAS 



CRIACAO DE UM CENARIO 
BANC OS DE BLOCOS 




Com urn conjunto de blocos grSficos, 
sera facil criar as mais diversas 
figures. Voce precisard apenas colocar 
os blocos na posicao correta e 

acrescentar alguns detalhes ao fundo. 



Ja falamos bastante sobre a criacao, 
protegao, edipao e gravacao de conjun- 
tos de blocos definidos pelo usuario. 
Mostramos tambem ao usuario do Spec- 
trum como exceder o liraite de 21 blo- 
cos inicialmente imposto. Neste artigo, 
o segundo de uma serie de tres, avanca- 
mos as explicates sobre o uso de blo- 
cos graficos na criacao de figuras na te- 
la de seu microcomputador. 



POR QUE USAR BLOCOS GRAFICOS 



Suponhamos que voce" queira criar 
uma tela representando uma floresta — 
para servir de cenario a um jogo de 
acao, por exemplo. Existem basicamen- 
te dois caminhos a seguir: usar os co- 
mandos grificos do BASIC para dese- 
nhar cada parte da figura ou, entao, 
combinar blocos graficos. 

Se voce escolher a primetra alternati- 
va, tera um trabalho enorme para criar 
a mata que faz parte do cenario, pois pre- 
cisara desenhar cada tronco e cada copa 
de arvore. Alem disso, as arvores ficarao 
muito parecidas umas com as outras, 

Se vocS criar um bloco grafico, ou 
virios deles que, combinados, formem 
uma arvore, poderi colocd-los na tela, 
repetidas vezes, nas posicoes quequiser. 
Voce evitara, desse modo, o trabalho de 
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especificar cada detalhe ao acrescentar 
mais uma arvore na tela. 

Existem ainda outras vantagens no 
uso de UDG. Uma delas e a economia 
de tempo. Os desenhos compostos por 
blocos graficos, nao importa se mats ou 
menos complicados, sao tracados na tela 
numa velocidade maior que os produ- 
zidos com eomandos graficos do BA- 
SIC. Assim, se compusermos uma figu- 
ra com blocos graficos, teremos que es- 
perar bem menos tempo por sua apari- 
cao na tela. 



LIBERDADE DE ESCOLHA 



Outra vantagem e a facilidade de va- 
riar o tamanho e a forma da figura. No 
desenho da floresta, por exemplo, po- 
deriamos mudar o tamanho de uma ar- 
vore aumentando ou diminuindo o nu- 
mero de "blocos de tronco" e, ainda, 
alterar sua copa usando uma combina- 
cao diferente de "blocos de folhagem". 
Os eomandos graficos do BASIC podem 
fazer a mesma coisa, mas, com os blo- 
cos, a tarefa e bem mais facil. 

Uma vez criados, os blocos graficos 
permanecem na mem6ria ate serem mo- 
di ficados — ou o micro ser desligado. 
No caso do Spectrum, se dispusermos 
de varios bancos, precisaremos "ligar" 
o banco que estiver sendo usado naquele 
memento. Mas isto e s<5 uma questao de 
modificar o apontador de UDG. 

Poderemos, assim, usar os blocos que 
criamos quantas vezes quisermos dentro 
de um programa: o linico limitc e a me- 
m6ria. Voltando ao nosso exemplo, se- 
ra tao facil criar uma floresta quanto 
uma unica irvore, utilizando UDG, 

El claro que o emprego de blocos gra- 
ficos tambem apresenta desvantagens. 
Para comecar, temos que definir todos 
os blocos, recorrendo ao gerador ou di- 
gitando varias linhas DATA. Vale lem- 
brar, porem, que, usando eomandos 
graficos, teremos ainda mais trabalho. 

Outra desvantagem e a oeupacio de 
pane da preciosa memdria do micro pa- 



ra guardar os blocos e, pior, a menos que 
sejamos cuidadosos, acabamos fazendo-o 
duas vezes. No prdximo artigo, veremos 
como contornar o problema. 



QUANDO VALE A PENA USAR UDG 



Por todas estas raz6es, e mais vanta- 
joso usar blocos graficos em certas fi- 
guras do que em outras. 

Como regra geral, se o cenario inclui 
uma serie de objetos semelhantes, dese- 
nhados virias vezes, ou se algum tipo de 
figura aparece repetidamente no decor - 
rer do programa, o uso de UDG vai nos 
poupar tempo e trabalho. 

Se, por outro iado, queremos um de- 
senho muito detalhado, que usaremos 
apenas uma vez durante o programa, 
pode ser melhor ficarmos com os eo- 
mandos graficos do BASIC. 

Uma parede de tijolos, por exemplo, 
podera ser desenhada com muito mais 
facilidade se utilizarmos um ou varios 
blocos repetidas vezes. Uma alternativa 
seria tracar diversas Linhas sobre uma re- 
giao colorida para imitar os espacos en- 
tre os tijolos. 

No nosso cenario de floresta, ja vi- 
mos que podemos fazer uma boa eco- 
nomia de tempo criando UDG para as 
&rvores que nele aparecem. Os animais 
tambem podem ser desenhados com blo- 
cos graficos, principalmente se formos 
uliliza-los novamente no decorrer do 
programa, ou se quisermos animd-Ios ou 
desenhd-los varias vezes. 



UMA FLORESTA NA TELA 



Apresentaremos a seguir alguns pro- 
gramas que criam os caracteres para de- 
senhar o cenario ja mencionado. 

As linhas DATA para o Spectrun, 
o MSX sao as mesmas. Elas comecam 
na linha 1 300 e estao listadas logo ap6s 
o programa do MSX. 



10 CLEAR 63500 
110 POKE 23676,255 
120 FOR n-USH "a" TO USR *r'+7 
: READ a: POKE n.a: NEXT n 
260 POKE 23676,249 
270 FOR n-USR "a" TO USR "*"+7 
: READ a: POKE n,a: NEXT n 
290 POKE 23676,248 
300 FOR n=USR "a* TO USR "o"+7 
: READ a: POKE Q,»: NEXT n 
410 BORDER 1: PAPER 8: CLS 
420 FOR n-1 TO 8: PRINT PAPER 
5i" ";TAB 31;" ": NEXT n 
430 FOR n-1 TO 14: PP.JNT 
PAPER 4r" ";TAB 31;' ": NEXT n 
440 PLOT 0,110: DRAW 142,-100, 
-PI/3: PLOT 160,110: DRAW -60, 



t 



m 




Ill 



'ROGRAMACAO 




INK 2 
FOR n*144 




-42, PI/3 

460 POKE 23676.255 
470 PRINT AT 19,20 
TO 155: PRINT CHRS n;: NEXT n 
460 PRINT AT 2 0,20; CHRS 156; 
CHRS 157;CHRS 158;CHRS 159 
CHRS 159;CHRS 159;CHR$ 159 
CHRS 159;CHR$ 160;CHRS 159 
CHRS 159; CHRS 159 
490 FOR n-0 TO 31: PRINT INK 
1; PAPER 4; CHRS 161 i : NEXT n 
760 INK 7 

770 POKE 23676,249 
780 PRINT AT 8, 9; CHRS 144; CHRS 
145;CHRS 146;CHRS 147;AT 9,9; 
CHRS 148;CHRS 149; CHRS 150; 
CHRS 151; CHRS 152; AT 10,10; 
CHRS 153;CHRS 154:CHRS 155; 
CHRS 156 

800 POKE 23676,248 
810 LET x-6: LET y-14: GOSUB 
840: LET X-5: LET y-18: GOSUB 
840 
20 LET x-4: 
LET x-4 



LET y-O: GOSUB 
LET Y-3: GOSUB 



845: 

84 S 

830 GOTO 850 

84 PRINT INK 4; AT x,y;CHRS 

151;CHR$ 152;CHRS 153;CHRS 154 

j INK 2;AT x+l,y+l:CHRS 155; 

CHRS 156;AT x+2 , y+1 ;CHR$ 157; 

AT x+3,y+l;CHRS 157; AT x+4,y+l 

;CHRS 157; AT x+5,y+l;CHRS 158: 
RETURN 

845 PRINT INK 4; AT x.y;CHR3 
144;CHRS 145;AT x+l,y;CHR$ 146 
I CHRS 14 7; AT x+2,y;CHRS 148 j 
CHRS 149; INK 2; AT x+3,y+l; 
CHR$ 150; AT x+4 ,y+l ; CHR$ 150; 
AT x+5,y+l;CHRS 150: RETURN 
970 INK 

1300 REM CROCODILO 

1310 DATA 0,0,1.7,15,15,9,5,0,0 



,128,192,248,255,127,95,1,3,6.1 

2 

1320 DATA 62,255,255,255,192,22 

4,176,159,191,255,255,255 

1330 DATA 0,0,0,0,0,248,252,255 

,0,0,0,0,0,0,1.207.0,0,0.1,15,1 

27.255,255 

1340 DATA 0,3.63,255,255,255,25 

5,255,127, 255 , 255 ,255,255, 254 , 2 

49, 247,248 

1350 DATA 255,255,255,255,15,25 

5.255 

1360 DATA 0,224.254.255,255.255 

,255,255.0,0,0.192,248,255,255. 

255,0,2,4,7.7 

1370 DATA 3,0,0,21.1,164,73,255 

,255.0,0 

1380 DATA 255,127,63.63.255.255 

.12 7.31.255,255,255,255,255, 255 

,255,255 

1390 DATA 239,239,239,239,239,2 

47, 24 7,247,60,255,255,255,255.2 

55,255,255 

1780 REM ELEFANTE 

1790 DATA 0,0,0,8,28,25,51,51,0 

,0,0,126,255,193.253,253.0.0,0. 

0,0,255,255 

1800 DATA 255,0,0,0,0,0,248,252 

,254 

1810 DATA 102,111,111,111,125,5 

7,26,0,253,251,251,251.231.31.1 

5.15,255.255 

1820 DATA 255,255,255,255,255,2 

55.254,255,255.255,255,255,255, 

255 

1830 DATA 0,0,128,64,32,16,12.0 

,15.15.15.14.14,14,14,31,255,24 

0,224,224 

1840 DATA 224,224,224,224,255,6 

3,59,59,57,57.121,248 

1850 DATA 0,0,128.192.224.224,1 

28,0 

1860 REM ARVORE 1 



54 



1 
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1B70 DATA 0,0.0,0.1,1.3,7.0,0,0 

, , 224 , 240 , 248 , 248 , 15 , 63 , 63 , 63 , 

31,15,3.3 

1B80 DATA 252,254,254,254.254,2 

54, 252 , 252 

1890 DATA 3,3,3.3.3,1,0,0,248,2 

48 , 248 , 248 , 248 , 248 , 24 , 96 , 96 , 96 

,96,96,96,96 

1900 DATA 96.96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127.63. 

1,7.15,255.255, 255 ,255,255. 255 . 

15,63,255.255 

1930 DATA 255,255.255,255,0,128 

. 248 , 248, 248 , 246 , 240 . 224 

1940 DATA 255,227.96,48.24,25,1 

3,15,252.240,96,96,19 2,192.126, 

128,7,7,7,7,7 

1950 DATA 7,7,7,7.7,7,15,15,15, 

31,63 



28, .6:PAINT(230,191) ,2 

130 CIRCLE(0, 191) ,143,2,0,6.28, 

.4: PAINT (10. 191) ,2 

140 CIRCLEtO, 191) ,143,12,0,6.28 

..4 

200 FOR 1-1 TO 51 

210 READ A,B,C:FOR J»0 TO 7 

220 VPOKE BASE (12) +A*8+J, PEEK (S. 

HD100+B*8+J) 

230 VPOKE BASE(11)+A*8+J,C 



Wi 



5 CLEAR 200.S.HC999 

10 FOR 1-0 TO 367 

20 READ A: POKE i.HD100 + I,A 

30 NEXT I: COLOR 15,4,4 

110 SCREEN 2 

120 CIRCLE (255, 191), 160. 2, 0.6 




240 NEXT J, I 

250 FOR K-l TO 6 : READ D(K) :NEXT 

K 
260 FOR 1=1 TO 8-READ A(I),B(I) 
,C(1):NEXT I:FOR K-l TO 6:FOR I 
-1 TO 8: FOR J-0 TO 7 
270 VPOKE BASE(12)+(A(I)+D(K))* 
8+J , PEEK (S.HD100+B (I) *8+J) 
280 VPOKE BASE(11>+CA(I)+D(K))* 
8+J,C(I) 
290 NEXT J,I,K 
300 FOR K-l TO 8: READ D{K):NEXT 

K 
310 FOR 1=1 TO 9;READ A(I),B(I) 
,C(I):NEXT I: FOR K-l TO 8 : FOR I 
-1 TO 9: FOR J-0 TO 7 
320 VPOKE BASEU2) + (AU)+D(K}>* 
6+J . PEEK (LHDIQO+B (I ) *8+J) 
330 VPOKE BASE{11)+(A(I)+D(K))« 
8+J.C(I) 
340 NEXT J.I.K 
400 GOTO 400 

3000 DATA 692,0,98,693,1.98,694 
,2,9B.695,3.98 

3010 DATA 696,4.98,697,5,98,698 
,6,98,699,7.98 




WGRAMACAOBAl 



inn 



3020 DATA 700,8,96,701,9,98,702 

,10.98,703,11,98 

3030 DATA 724,12,98.725,13,98,7 

26,14,98,727,15,98 

3040 DATA 728,15,98,729.15.98,7 

30.15,98.731,15.98 

3050 DATA 732,16,98.733,15.98,7 

34.15,98,735,15,90 

3060 DATA 754.17,78,755,17.78.7 

56, 17. 78, 75J. 17, 78, 758. 17, 76, 75 

9,17,78 

3070 DATA 760.17,78,761,17,78,7 

62,17,78,763,17,78 

3080 DATA 764,17,78,765.17,78,7 

66,17,7B. 767,17, 78 

3090 DATA 500,18,226,501,19,226 

,502.20,226.503. 21.226 

3100 DATA 532,22.226.533,23.226 

,534,24,226,535,25,226 

3110 DATA 536,26,226,565.27,226 

,566.28,226,567,29,226,568,30,2 

26 

3115 DATA -32,-4,36,75,80.147 

3120 DATA 342.31.36.343,32.36.3 

74,33,36, 375,34.36 

3130 DATA 406.35.36.407.36.36.4 

39,37,96,471.37.96 

3135 DATA -44.-20.-15,60,84.96. 

157.163 

3140 DATA 327,38.36,328,39,36,3 



29,40,36,3 30,41,36 

3150 DATA 360,42,96,361,43,96,3 

92,44.96.424,44.96 

3160 DATA 456,45.96 



FM 



1300 REM CROCODILO 

1310 DATA 0,0,1,7,15,15,9,5,0,0 

,128,192,248,255,127.95.1,3.6,1 

2 

1320 DATA 62,255.255.255.192,22 

4,176,159,191,255,255,255 

1330 DATA 0,0,0,0,0,248,252,255 

,0,0.0.0,0,0,1,207.0,0,0,1,15,1 

27,255,255 

1340 DATA 0,3,63,255.255,255,25 

5,255,127, 255 , 255 , 255 , 255 ,254.2 

49,247,248 

1350 DATA 255,255,255,255.15,25 

5,255 

1360 DATA 0,224,254.255,255,255 

, 255 , 255 , , . , 192 , 248 , 255 . 255 . 

255,0.2,4,7.7 

1370 DATA 3.0,0,21,1,164,73,255 

,255.0,0 

1380 DATA 255.127,63,63,255,255 

.12 7.31,255,255,255,255,255,255 

,255,255 

1390 DATA 239,239,239,239,239.2 

47 , 247 ,247,60,255, 255 ,255,255,2 

55,255,255 

1780 DATA REM ELEFANTE 

1790 DATA 0,0,0,6,28.25,51,51,0 

,0,0.126,255,193,253,253,0,0,0, 

0,0,255,255 




1800 DATA 255,0,0,0,0,0,248.252 

,254 

1810 DATA 102,111,111,111,125,5 

7.26,0.253.251.251,251.231,31.1 

5,15,255,255 

1820 DATA 255,255.255.255.255,2 

55 , 254 . 255 . 255 , 255 , 255 , 255 , 255 , 

255 

1830 DATA 0.0,128.64,32,16,12,0 

.15.15.15.14,14,14,14.31.255.24 

0.224,224 

1840 DATA 224,224,224,224,255,6 

3,59,59,57,57,121,248 

1850 DATA 0,0,128.192.224.224,1 

28,0 

1860 REM ARVORE 1 

1870 DATA 0,0,0,0,1,1,3,7,0,0,0 

,0, 224,240,248,248.15,63,63,63, 

31,15,3,3 

1880 DATA 252,254,254,254,254,2 

54.252,252 

1690 DATA 3,3,3,3.3,1,0,0,248,2 

48,248,246,248,248,240,96,96.96 

,96,96,96,96 

1900 DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127.127,63, 

1,7,15,255,255, 255 , 255 . 255 , 255 , 

15,63,255.255 

1930 DATA 255,255, 255, 255, 0.12B 

, 248 , 248 , 248 , 248 , 240 , 224 

1940 DATA 255,227,96,48,24.25,1 

3,15,25 2,240,96,96,192,192,128, 

128,7,7.7,7,7 

1950 DATA 7,7,7,7,7,7,15,15,15, 

31,63 

Q 

10 CLEAR 1000 :CLS 

20 DIM CC59) ,E(17) ,T1U> .T2(7) , 

Fl(7) ,F2(7) 

30 PMODE 3.1:PCLS 

40 WS-*L6UL6D" :W3-W3+W3+WS+WS 

50 DRAW" BM1 , 4C4RUR2UR2DR2DR4DR8 

UR4UR2UR2UR2UR4DR2DR2DR4D2R6DR2 

DR4DR4UR4UR4UR4UR4UR4DR4UR4UR10 

DR6DR4DR2DR2DR2D15"+WS+WS+"L6UL 

6DL4BU14DRUFRFR7FR3FR9FGL7GL21 

HL2D3FR21FR3F* 

60 PAINT<50,10) ,4 

70 DRAW'*BM9B,5C1L8GLGLGD5BFD2RF 

R3FBM32 , 2GFREHLBM1 . 8C2FRERFBR4U 

BM+4 , 2 ; RBR3RBM+3 , 1 ; RBM+3 , 1 ; RBR3 

RBL8BDLBL5NEBL6NEBL4EBL5E" 

80 GET (0.0)-(112.20) ,C,G 

230 PCLS 

240 DRAWBM4.0C2DG2DG2D3R2DE2UE 

2UE43FRFR11F3RFRFR3DBL8NU3D4F2D 

GH2UHL3D5LURU3HL6D5L2BU6L3D6NL2 

U6LH2LNGUHL2" 

250 PAINT (20, 7) ,2 

260 DRAW*BM12.3C3R2D4G2BMe,4R" 

270 GET(0,0)-(37,17) ,E,G 

280 PCLS 4 

290 DRAWBM7.19C1H3U5H5UE6R2F3D 

F2D2G3D3G2D2*:PAINT(7.7) ,1 

300 DRAW"BM20,5E2R2E2RFR4E2F2R2 

E2R5FRFDG3LGLGLGL5HL5H2L4* : PAIN 

T{34,5) ,1 

310 GET<0,0)-(13,19) ,F1.G:GET(2 

0.0}-{49,9) ,F2,G 



320 PCLS:DRAW"BM0,0C4D20BE20F3D 
FD15G2ML2R8HL4EU13E4U2" 
330 GET(0.0)-(1,20) ,T1.G:GET(20 
,0)-(31.22) .T2.G 
340 PCLS3: SCREEN l r O 
350 CIRCLE{255, 191) .160.1, -6:PA 
INT(230,160) ,1 

360 CIRCLE (0,191) ,140,2, ,35, -75 
, 1:PAINT(10,180> ,1.2 
360 PUT(206.100)-(243,117) ,E,PS 
ET 

390 FOR K-l TO 10: READ X,Y:PUT 
(X,Y)-(X+13.Y+19) ,F1,AND:PUT{X+ 
6,Y+20)-(X+7,Y+40) ,T1 , OR : NEXT 
400 FOR K«l TO 10: READ X,YrPUT{ 
X , Y) - { X+29 , Y+9) , F2 . AND : PUT (X+8 , 
Y+9)-{X+19,Y+31) ,T2,OR:NEXT 
410 COLOR 2:L1NE (138, 187) - (255 
,187) , PSET: PAINT (255. 191) , 2 : PAI 
NT(255,191) ,3,1 

420 PUTU43,166)-(255,186) ,C,PS 
ET 

450 DATA 16,110,24,113,34,108.4 
8,110.56,108,190,80,196,82,212, 
84,210.79,240,70 
460 DATA 2.120.18,122,28,116.46 
, 118 , 60 , 124 , 160 , 90 , 1 74 , 95 , 190 , 9 
0,214,86,226,90 
4 70 GOTO 470 

Executando estes programas, vere- 
mos o tipo de figura que podemos criar 
usando UDG. Nao se preocupe se o al- 
to da tela parece vazio no momento, 
pois o cenario ainda nao esta completo. 

A agua sob o crocodilo e" uma boa de- 
monstracao da versatilidade dos blocos 
graficos: ela & composta pela repeti?ao 
de um so bloco. (Isto nao vale para o 
TRS-Color, onde a matriz do crocodilo 
inclui a agua.) 

O cenario nao e formado apenas por 
UDG: empregamos tambem comandos 
graficos para desenhar as colinas. Era- 
bora com freqiiencia seja melhor usar 
blocos graficos em vez de comandos gra- 
ficos, podemos obter 6timos resultados 
combinando as duas tecnicas. O pr6xi- 
mo artigo completari o desenho; por- 
tanto, grave o programs em fita. 



C0M0 FUNCI0NA 



Se voce nao entendeu como o progra- 
ma define e guarda os blocos, consulte 
o ultimo artigo desta serie. 

O programa pode ser dividido em 
duas partes: uraa que define os blocos 
e outra que os coloca na tela. 

O Spectrum utiliza o comando PO- 
KE para colocar os valores das linhas 
DATA na tela; o MSX, por sua vez, usa 
VPOKE. No programa do TRS-Color 
nao ha linhas DATA: desenhamos as fi- 
guras com DRAW e, em seguida, guar- 
damos os padrSes em matrizes com GET. 

Criados os blocos, o programa prosse- 
| gue colocando-os nos locals adequados. 



O Spectrum usa uma serie de coman- 
dos PRINT AT para desenhar cada seg- 
mento de animal ou arvore. Ele tambem 
emprega comandos locais de cor para 
colorir as figuras. 

Um comando local de cor e aquele 
que se aplica somente a linha onde ocor- 
re. Em geral, fazemos com que o pano 
de fundo — PAPER — seja 8, que e 
transparente. Isso evita que os blocos 
impressos na tela o danifiquem. 



UM PANO DE FUNDO MULTIC0L0R1D0 



O pano dfe fundo 6 definido pelas li- 
nhas 410 a 440, A primeira delas esta- 
belece a cor, e as duas seguintes produ- 
zem o ceu azul-claro e o chao verde. Pa* 
ra conseguir as diferentes cores de fun- 
do, imprimem-se espacos com as cores 
escolhidas, por meio de dois lacos 
FOR.. .NEXT. 

Como existem varias arvores no ce- 
nario, elas sao desenhadas com sub- 
rotinas (linhas 810 e 820). As variaveis 
x e y corresponded! as coordenadas de 
comandos PRINT AT. Podemos facil- 
mente acrescentar novas arvores ao de- 
senho, colocando mais coordenadas (ve- 
ja, no artigo da pagina 501, como esco- 
lher as coordenadas adequadas) e co- 
mandos GOSUB nessas duas linhas. 



O programa do MSX usa o coman- 
do VPOKE para colocar os blocos na te- 
la grafica. Comandos graficos do BA- 
SIC tamb6m sao empregados para de- 
senhar o fundo da figura. 

[nicialmente, a linha 5 protege o to- 
po da membria para que as linhas 10 a 
30 coloquem ali os padroes dos blocos. 
A linha 30 tambem seleciona as cores da 
tela; a 1 10 seleciona a tela. As linhas 120 
a 140 desenham as duas colinas que apa- 
recem no fundo. 

Em seguida, usando VPOKE, os pa- 
droes sao colocados na tela grafica. A 
posicao que o bloco deve ocupar na te- 
la — A — , a posicao do bloco no ban- 
co de blocos — B — e a cor do bloco 
— C — sao obtidos com READ nas li- 
nhas DATA que comegam em 3000. 

Ja que existem dois tipos de arvore, 
elas sao desenhadas por dois lacos 
FOR.. .NEXT. Precisamos, no entanto, 
de um grande numero delas. Para faze- 
las, usamos uma serie de valores que se 
somam as posicoes em que cada arvore 
e desenhada. Esses valores sao lidos nas 
linhas DATA 31 15 e 3135, mudando a 



posicao de cada arvore sempre que o la- 
co € executado, 

As cores nao foram colocadas no 
banco, e sim nas linhas DATA a partir 
de 3000, juntamente com as posicoes 
dos blocos. Isso foi possivel porque, em 
nosso exemplo, cada bloco tinha apenas 
duas cores. Quando o colorido dos blo- 
cos for mais complicado, convem usar 
o banco. 



O programa do TRS-Color comeca 
reservando espago para os corddes que 
usa e DIMensionando as matrizes que 
guardam os blocos graficos. Com exce- 
cao das arvores, temos um bloco grafi- 
co para cada figura, ja que os blocos po- 
dem ter qualquer tamanho. As arvores 
requerem dois blocos cada, pois tem 
uma rnetade vermelha e outra verde. 



OS ANIMAIS 



O programa prossegue desenhando 
um animal de cada vez e guardando ca- 
da um deles na matriz apropriada, com 
o comando GET. A linha 80 guarda o 
crocodilo, a linha 270 o elefante, a li- 
nha 310 cuida das copas das arvores e 
a linha 330 dos troncos. 

A segunda parte do programa colo- 
ca cada parte do desenho em seu lugar. 
As primeiras linhas limpam e seiecionam 
a tela apropriada, desenhando tambem 
as colinas que fazem parte do cenario. 
As cores das colinas sao determinadas 
pelo comando PAINT. 

Os dois grupos de arvores, cada um 
em uma colina, sao desenhados pelo la- 
90 FOR... NEXT das linhas 390 e 400, 
usando as linhas DATA 450 e 460 para 
determinar a posicao. 

As linhas 380 e 420 colocam o elefan- 
te e o crocodilo na tela, respect ivamen- 
te. A ultima hnha ativa do programa (se 
ignorarmos as linhas DATA) e a 470. 
Ela impede que o programa termine, 
permitindo a visualizacao da tela que, 
de outra forma, seria apagada. Use 
< BREAK > para parar o programa. 



UMA MANADA DE ELEFANTES 



Podemos substituir o elefante por 
uma manada. O metodo e o mesmo uti- 
lizado para as arvores: um laco 
FOR... NEXT ou varies comandos 
GOSUB. 



BH31I 



Ja vimos como usar blocos graficos 
para escrever na tela de alta resolucao. 
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Agora vamos examinar como carre- 


4150 


00 


02 


22 


2A 


2A 


00 


00 


00 


45B0 


AA 


AA 


AA 


AA 


AA 


A8 


A6 


A8 


gar bytes na area reservada ao banco de 


4158 


40 


44 


15 


55 


55 


00 


00 


00 


45B8 


DO 


D4 


D4 


D4 


DO 


CI 


CI 


Dl 


blocos — segunda pagina de video — 


4160 


2A 


2A 


2A 


2A 


2A 


28 


20 


20 


45C0 


A8 


AA 


AA 


8A 


AA 


AA 


A8 


AS 


por meio do monitor. 

monitor permite que coloquemos 


4168 


55 


55 


55 


55 


55 


55 


55 


55 


45C8 


65 


95 


95 


95 


95 


91 


95 


95 


4170 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4610 
4640 
4648 
4650 


AA 

50 
3A 

55 


AA 

50 
3A 
45 


AA 
54 
2A 
45 


AA 
54 


AA 
54 


AA 

FD 


AA 

7F 


AA 

5D 


valores diretamente na memoria do mi- 
cro. Estes mimeros serao, em nosso ca- 


4178 
4180 


55 
2A 


55 
2A 


55 
2A 


55 
2A 


55 
2A 


55 
2A 


55 
2A 


55 
2A 
55 
2A 
55 
2A 


22 

45 


00 
45 


00 
14 


20 
14 


2A 

50 


so, os bytes correspondentes aos blocos 
graficos necessarios para o cenario. 
Depots de colocar todos estes bytes 


4188 
4190 
4198 

41A0 
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2A 


51 
2A 
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2A 


51 
2A 
55 
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51 
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2A 
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45 
2A 
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2A 


45 
2A 

55 
2A 


4658 
4660 
4668 


2A 

55 
2E 


2A 

55 
3F 


6A 
05 
2A 


7E 
01 
20 


6A 

01 



2A 
01 
00 


2A 

05 
20 


2A 

55 
6A 


na mem6ria, carregue e execute o gera- 


41A8 


55 


55 


55 


55 


55 


55 


55 


55 


4670 


FD 


5D 


55 


05 


50 


55 


5D 


57 


dor de blocos, para poder ver, editar e 


41 B0 
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2A 
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2A 
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2A 
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2E 


2E 


entender como foram criadas as figuras. 


41C8 


DO 


DO 


DO 


DO 


DO 


D4 


D4 


D4 


4680 
4688 
4690 
4698 


00 
00 
00 
20 


00 
00 
00 
2A 
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00 
50 
2A 


55 

02 

14 


7F 
2A 

15 


5D 
3A 
55 


5D 
3A 

55 


5D 
3A 

55 


No proximo artigo apresentaremos o 


41D0 


80 


80 


so 


80 


A0 


AB 


AA 


AA 


programa BASIC que desenha a flores- 


41D8 


80 


60 


60 


85 


95 


95 


D5 


DO 


2A 


2A 


3E 


0E 


OF 


ta usando o banco de blocos que esta- 
mos criando hoje. 

Para carregar o banco de blocos, ati- 
ve o monitor com: 


41E0 
41F8 
4200 
4230 
4238 


80 
CO 
82 
2A 
55 


80 
DO 
AA 
2A 

55 


80 
DO 
82 
2A 
55 


B0 
DO 
62 
2A 
55 


80 
DO 
62 
2A 
55 


80 
DO 
80 
2A 
55 


80 
DO 
80 
2A 
55 


82 
DO 

eo 

2A 
55 


46A0 
46D8 
46E0 
46E8 
46F0 


01 
D5 
60 
80 
A8 


05 
D5 
AA 
D5 
AA 


05 
D4 
AA 
D5 
AA 


05 
D4 
AA 
D5 
AA 


04 
D4 
AA 
D5 
AA 


04 
D5 
AA 
D5 
AA 


04 
D5 
AA 
D5 
AA 


00 
D5 
AA 
D5 
AA 


CALL - 151 


4240 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4 6F8 


D5 


D5 


D5 


D5 


D5 


D5 


DS 


D5 




4246 


55 


55 


55 


55 


55 


55 


55 


55 


4700 


AA 


B2 


AA 




82 


80 


80 


80 


ou LM no TK-20O0. 


4250 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4708 


95 


95 


D5 


D5 


D4 


D4 


94 


80 


Agora, copie a listagem. Paraalterar 


4256 


55 


55 


55 


55 


55 


55 


55 


55 


4710 


60 


A8 


80 


80 


88 


86 


A8 


AA 


o conteudo de uma posicao de memo- 


4260 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


2A 


4718 


80 


81 


61 


61 


81 


81 


81 


81 


ria, digite o endereco pretendido, segui- 


4268 

4270 
4280 
4288 


55 
2A 
AA 
AA 


55 
2A 

D5 


55 
2A 
D5 


55 
2A 
D5 


55 
2A 

D5 


55 
2A 

D5 


55 
2A 
D5 


55 
2A 

D5 


4750 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


do de dois pontos e dos valores deseja- 


4780 


54 


50 


00 


00 


00 


00 


00 


00 


dos. Em nosso exemplo, modificamos 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


4788 


3A 


0A 


00 


00 


00 


00 


00 


00 


oito posicoes de cada vez. Lembre-se de 
que todos os mimeros precisam estar na 


4290 
4298 


AA 
A5 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


4790 
4798 
4 7A0 
47A8 
4 7 B0 


50 
68 
5F 
2B 

57 


40 
6A 
57 

2B 
57 


40 
62 
55 
2B 

57 


00 
2A 

D5 
2F 
15 


00 
0A 
55 
2A 
11 


00 
2A 

00 
00 

04 


00 
28 
55 
2A 
05 


00 
00 
55 
2A 
01 


forma hexadecimal. No TK-2000, de- 
vem-se usar outros enderecos. Em vez 


42A0 
42A8 


AA 

A5 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


D5 
AA 


de comecar no endereco 4000, em hexa, 


42B0 


AA 


D5 


D5 


D5 


D5 


D5 


D5 


D5 


47BB 


3F 


2B 


02 


00 


00 


00 


00 


00 


use A000, tambem em hexa. 


42B8 


A5 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


47C0 


55 


55 


00 


00 


00 


00 


00 


00 


Note que nem todas as posicdes da 


42C0 


AA 


D5 


D5 


D5 


D5 


D5 


DS 


D5 


47C8 


7E 


2A 


00 


00 


00 


00 


00 


00 


area do banco precisam ser modificadas, 
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47D0 
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55 
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00 


havendo varias lacunas na listagem. 


4 7D8 
47E0 


0B 



03 
10 
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D5 
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A0 
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PIROTEJA 
IUS PROGRAMA2 



Voce quer proteger seus programas 
contra a "pirataria" ou a mera 
curiosidade? Veja aqui as tecnicas 
utilizadas pelos professionals na 
montagem de travas e armadilhas. 




QUE SE POPE FAZER PARA 
PROTEGER PROGRAMAS BASIC 
PROGRAMAS AUTOCARREGAVEIS: 



Q QUE SAO E Q QUE FAZEM 
PROGRAMAS 



INTERDEPENDENTES 



COMO OESATIVAR 



OS COIVIANDOS SAVE E LIST 

PEQUENAS ARMADILHAS 

PARA SEU COMPUTADOR 




Nunca e demais dar a urn programa 
um toque professional, sobretudo depois 
de um grande es forgo para deixa-lo "re- 
dondinho". Nesse sentido, voce pode 
fazer duas coisas: melhorar a apresen- 
tacao do programa e providenciar-lhe 
uma protecao razoavel, de modo que 
suas tecnicas especiais fiquem, ao me- 
nos, obscurecidas para o publico. 

Algum cuidado no acabamento e es- 
sencial se vocS pensa em comercializar 
seu programa — especialmente se pre- 
tende negocia-lo com uma software- 
house. Os recursos que voce devc utili- 
zar para dar-lhe uma melhor apresenta- 
cao foram discutidos anteriormente; as- 
sim, focalizaremos aqui as tecnicas dis- 
poniveis para garantir alguma protecao 
ao seu trabalho. 

A protecao de um programa BASIC 
depende de armadilhas colocadas den- 
tro do proprio programa. Os escritos em 
c6digo de maquina podem receber um 
tratamento bem mais sofisticado. 

Nao existem restricoes de nenhum ti- 
po quanto ao emprego de armadilhas 
paraevitar as copias "piratas" ou a lis- 
tagem de um programa por curiosos. 
Quantas delas serao colocadas no pro- 
grama e questao para voce decidir. 

De qualquer maneira, convem sem- 
pre se lembrar de que nao se conhecem 
rnetodos absolutamente seguros de evi- 
tar que urn programa seja copiado. Mui- 
tas pessoas encaram os programas pro- 
tegidos como um desafio e nao desistem 
ate que ele seja vencido. Outras se em- 
penharao em Listar o programa paxa 
examina-lo, adapta-lo as suas necessida- 
des ou, simplesmente, aprender. 



Ainda que voce ten ha muita imaginacao 
c dominc as tecnicas neeessarias para 
motiiar as mais faniasiicas armadilhas, 
seu programa nunca estara tolal#)ente 
protegido das o) ha res curiosos. 
Mas, combinsndo determinados recursos — 
alguns mais simples, outros nem tanto — , 
voce pode dificultar tanfo o trabalho 
do "pirata" que ele se sentlra 
lentatfo a abandonar sua tarefa. 



PRIMEIROS PASSOS 



Urn dos metodos para proteger pro- 
gramas consiste em introduzir neles va- 
rias armadilhas simples. Elas nao impe- 
dem que alguem com conhecimento da 
maquina abra o programa, mas tornam 
a tarefa bem mais trabalnosa. Infetiz- 
mente, esse metodo dificulta tambem a 
elaboracao do programa. Alern disso, 
ele complica a depuracao de erros, ja 
que as armadilhas podem estar ativas 
durante a execucao do programa. 

As travas mais simples sao as que in- 
troduzem no programa mudancas que 
tornam impossivel o uso dos comandos 
SAVE, LIST e outros. Como elas s6 se 
ativam ap6s a execucao do programa, 
nao criarn os problemas de depuracao 
mencionados acima. 



AUTOCARREGAMENTO 



Pode-se obter uma protecao bem me- 
lhor fazendo com que o programa seja 
exec ut ado automalicamente depois de 
carregado. No processo normal de car- 
regar um programa (LOAD), os coman- 
dos sao digitados no modo direto. Mas 
eles podem ser chamados por um pro- 
grama a parte, denominado programa 
de autocarregamento (bootstrap). Es- 
te e escrito em BASIC ou codigo de ma- 
quina, dependendo das tarefas especifi- 
eas que deve executar. Na sua forma 
mais simples, pode ser algo como: 

10 LOAD "NOME PROXIMO PBOGBAMA" 

A execucao desse pequeno programa 
carregaria para a mernoria do micro o 
programa cujo nome fosse especificado, 
Obviamente, o uso de uma linha como 
esta e bem especifico. Mas esse tipo de 
programa pode ser empregado para fa- 
zer mutto mais, sendo bast ante util pa- 
ra programacao suplementar — como 
montar paginas-titulos, graficos etc. 

Estas incluem poderosas armas de 
protecao de um programa BASIC, que 
alteram determinados comandos do sis- 
tema. No nosso caso, o programa de 
auto-carregamento funciona como um 
inicializador do sistema que permite que 
seu programa seja carregado e exec ut ado. 




Vinos tipos de programas comerciais 
empregam bootstraps, muttas vezes 
gravados na forma de programas patro- 
cinados, onde cada parte 6 carregada em 
sequincia. Lembre-se de que, normal- 
mente, urn programs BASIC apaga o 
anterior ao ser carregado, Assim, se vo- 
ce utillzar essa te'cnica, carregue antes os 
mddulos em linguagem de maquina e, 
depois, o BASIC. 

Com programas patrocinados, a pro- 
tecao pode ser determinada por urn cer- 
to grau de interdepended cia entre urn ar- 
quivo (parte do programa) e outro. Nes- 
te caso, um arquivo checa urn valor de 
memdria determinado por outro. Pode- 
se ainda acrescentar um programa que 
cheque um arquivo de dados especial co- 
locado apds o programa principal. Em 
ambas as alternativas, a falta de qual- 
quer um dos mddulos provoca um erro 
e impede que o programa funcione. 

Os bootstraps oferecem mais uma 
vantagem: com sua utilizacao, o tempo 
de carregamento dos programas na me- 
mdria diminui, porque o cddigo de ma- 
quina e os dados podem ser colocados 
diretamente na memdria. Esse progra- 
ma dispensa, assim, o uso de declara- 
coes DATA do BASIC, que sd funcio- 
na apds o programa comecar a ser exe- 
cutado. 



AUTO -EXECUCAO 



A utilizacao de um programa de 
autocarregamento nao e muito simples 
no TRS-Color (usando-se o cassete). 
Esse computador nao dispensaria cha- 
madas especiais do sistema, o que nao 
e possivel com o BASIC. No Spectrum, 
porem, para executar um programa a 
partir de outro basta usar o comando 
apropriado em algum lugar do progra- 
ma de autocarregamento. 



990 LOAD "NOME DO PROXIMO PROGB 
AMA" 

Grave (SAVE) este segundo progra- 
ma usando SAVE "NOME DO PRO- 
XIMO PROGRAMA" LINE 1-ouo 
mimero de linha que represente o infcio 
do programa. Escolhendo um numero 
de linha maior, voce podera inctuir avi- 
sos ou dados para serem lidos (PEEK) 
e checados em linhas REM anteriores a 
linha inicial de execucao. 

tin 

No MSX tambdm £ muito simples 
lexecutar um programa a partir de ou- 



tro: basta usar o comando LOAD com 
a opcao R. Mas, para que tudo de cer- 
to, o programa a ser executado deve es- 
tar gravado no formato ASCII, isto e, 
com a instrucao SAVE. Na sua forma 
mais simples, o programa seria: 

100 LOAD "NOME DO PROGRAMA", R 



S] 



As tecnicas que seguem valem apenas 
para micros com disquete. 

Veremos, primeiro, como montar um 
programa de execucao automatica. O 
metodo mais simples consiste em intro- 
duzir no programa, que e automatica- 
mente carregado e executado ao se ligar 
o computador, uma linha do tipo 
PRINT CHR$(4); "RUN PROGRA- 
MA". Mas a utilizacao de um arquivo- 
texto e mais elegante, e exige apenas que 
o programa com que o disquete foi ini- 
cializado contenha esta linha: 

10 PRINT CHR${4) ; "EXEC AUTORUN" 

AUTORUN e um arqutvo-texto que 
sera executado como se as instrocdes es- 
tivessem sendo digitadas a partir do te- 
clado. Para cria-lo, digite e execute este 
programa: 



10 D3 



CBRS (4) 



20 PRINT D$;"OPEN AUTORUN" 

30 PRINT DS; "WRITE AUTORUN" 

40 PRINT "NOMON C.I.O" 

50 PRINT "RUN BP35" 

60 PRINT DS; "CLOSE* 

Com esse arquivo, qualquer tentati- 
va de interromper o programa sera in- 
terpretada como um erro. E isso sera 
aproveitado por uma rotina de trata- 
mento de erros no programa principal. 

Digite este programa e saive-o, por 
exemplo, com o nome de BP35: 

10 HOME 

20 PRINT "ALO "; 

30 GOTO 20 

Em seguida, digite "EXEC AUTO- 
RUN". O programa sera executado pe- 
los comandos do arquivo AUTORUN. 
Se inicializou o disquete como sugeri- 
mos, seu programa BP35 tera execucao 
automatica toda vez que o computador 
for tigado com esse disquete no drive 1 . 



USO DE VARIAVEIS DO SISTEMA 



A auto-execucao nao basta para afas- 
tar os curiosos. E necessario utilizar ou- 
tros recursos para evitar que os progra- 
mas sejam interrompidos, listados ou al- 
terados. Um desses recursos consiste em 



alterar o modo como o sistema reage 
quando se faz uma chamada especifica 
— por exemplo, a sub-rotina de listagem 
(LIST). 

Cada computador tern um sistema 
operacional e um interpretador BASIC. 
A maior parte da informacao e guarda- 
da na memdria apenas para leitura — 
ROM — , mas parte dela e transferida 
para a memdria de acesso aleatdrio — 
RAM — , quando se liga o computador. 
Esta informacao pode ser modificada 
para alterar o funcionamento do siste- 
ma, permitindo que se incorporem aos 
programas metodos sofisticados de 
protecao. 

Como estaremos interferindo na pro- 
pria forma de irabalho do computador, 
precisaremos ter em maos uma listagem 
completa das variaveis e rotinas do sis- 
tema, e um bom mapa de memdria. Ve- 
ja o seu manual de referenda. 

A transferencia de parte da informa- 
cao do sistema da ROM para a RAM, 
possibiiita a altera?ao do valor de algu- 
mas variaveis. Estando na RAM, esta 
informacao torna-se vulneravel a qual- 
quer modificacao que se queira fazer. 

Um tipo especial de variavel do sis- 
tema e o apontador da RAM. Este con- 
siste, em geral, de dois enderecos con- 
secutivos que guardam o endereco de 
uma sub-rotina especifica. Se alterarmos 
tal endereco, o sistema sera redireciona- 
do sempre que esta sub-rotina for cha- 
mada. Os melhores apontadores para a 
protecao de programas sao os que se re- 
ferem aos comandos LIST, SAVE, IN- 
TERRUPT e RESET. Os ultimos co- 
mandos fogem ao escopo deste artigo. 



ESTUD0 DE CAS0S 



E" muito dificil dar total protecao aos 
programas, especiaJmente se se quer evi- 
tar um maior envolvimento com cddi- 
go de maquina. Os metodos para cada 
maquina diferem muito, ja que os sis- 
temas operacionais tambem sao bastan- 
te diferentes. Mas vale a pena analisar 
algumas possibilidades. 



Uma das maneiras mais simples de 
marcar um programa consiste em colo- 
car uma mensagem que nao possa ser re- 
tirada. Para reforcar a protecao, con- 
vent acrescentar uma rotina que verifi- 
que a presenca da marca. 

Inicialmente, encontre o endereco da 
area reservada para programas em BA- 
SIC. Esse endereco (variavel de sistema 
PROG) e armazenado nas posicoes 
23635 e 23636 e pode ser determinado 



pela instrucao: PRINT PEEK 23635 + 
256 * PEEK 23636. Conhecendo o va- 
lor de PROG, voce pode colocar qual- 
quer numero em PROG + t, alterando 

numero da primeira linha do 
programa. 

O segredo e deixar a linha com o nu- 
mero 0, ja que nao e possivel apagar a 
linha 0. Suponhamos que a primeira li- 
nha do programa seja: 

10 REM (C) NOVA CULTURAL 1986 

Digite este comando: 

POKE (PEEK 23635 + 256 * PEEK 
25636) +1,0 

Pronto! A linha 10 virou linha 0. 

O mesmo pode ser feito pelo progra- 
ma de autQGarregamento. Mas, 
tratando-se de urn programa auto- 
executavel, a maneira obvia de 
imerrompe-lo e teclando < BREAK >, 
que coloca uma mensagem na parte 
de baixo da tela. Suponhamos, po- 
rem, que esta nao aceite a mensagem. 
Na lista das variaveis de sistema, ve-se 
que DFSZ (no endereco 23659) armaze- 
na o numero de linhas da parte inferior 
da tela (geralmente 2). Alterando este 
valor para 0, o computador detectara 
urn erro assim que a mensagem tentar 
aparecer na tela, 

Como nao se pode entrar tais instru- 
coes no modo direto, digite: 

10 POKE 23659,0 

20 PRINT AT 5,5; RND 

30 GOTO 20 

Execute o programa, Se pressionar 
< BREAK >, provocara um erro. 

Quando usar este metodo, lembre-se 
de que, se seu programa contiver situa- 
coes que produzem mensagens como 
INPUT? ou scroll?, o erro sera inevita- 
vel. Assim, para entrada de dados, use 
INKEYS. 

O "pirata" pode evitar que um pro- 
grama se auto-execute, carregando-o 
com MERGE. Mas sera impossivel faze- 
lo se o programa for gravado em c6di- 
go. As variaveis do sistema, o progra- 
ma e a memoria livre devem ser grava- 
dos acima do buffer da impressora. 

A gravacao comeca com CODE 
23552, que e o inicio da area das varia- 
veis do sistema. O numero de bytes e 
N-23552, onde N e qualqueT numero 
maior que STKEND (o endereco do ini- 
cio do espaco livre). Obtem-se este en- 
dereco com PEEK 23653 + 256*PEEK 
23654. 

Coloque estas linhas no inicio do seu 
programa: 

1 SAVE "NOMEPROG" CODE 23552, 
N-23552 

2 POKE 23659,0 



Agora, iguale N ao endereco descri- 
to acima e digite GOTO 1. O programa 
sera gravado. O comando LOAD "NO- 
MEPROG" CODE fara com que o pro- 
grama seja executado. 



Vimos como proceder para que um 
programa iniciai carregue e execute o 
programa principal. Mas isso nao € sufi- 
ciente. Um simples <CTRL> <STOP> 
permite que se interrompa o programa 
para que ele seja listado, 

No MSX, pode-se evitar uma inter- 
rupcao desse tipo com facilidade. A 
ideia e direcionar o programa para uma 
sub-rotina especial toda vez que se ten- 
tar uma interrupcao com 
<CTRL> <STOP> . Para isso, 
utilizam-se as instrucoes STOP ON, que 
fazem com que o BASIC verifique a to- 
do instante se uma interrupcao foi ten- 
tada, e ON STOP GOSUB XXXXX, 
que desvia o programa para uma deter- 
minada linha em caso positivo. Digite 
o seguinte: 

10 ON STOP GOSUB 10 00 

20 BTOP ON 

30 CLS 

40 LOCATE 10,12:PRINTRND(1) : GOT 

O 40 

1000 P-P+l 

1010 CLS: LOCATE 10 , 10 : PRJNT"Nao 

aeja curioso! " :BEEP : FOR S-l TO 

1000:NEXT 
1020 IF P=3 THEN NEW: END 
1030 CLS: RETURN 

Nao se esqueca de gravar o progra- 
ma antes de executa-lo. Depois, pare-o 
se puder! 



Voce ja sabe como proceder para que 
seu programa seja automaticamente exe- 
cutado; veja agora como impedir que o 
interrompam, ou seja, como impossibi- 
litar sua listagem. Para isso, fazemos 
com que toda tentativa de interrupcao 
— por meio do < CTRL >< C > ou do 
< CTRL > < RESET > — seja interpre- 
tada como um erro, desviando a execu- 
cao para uma rotina especial. Para que 
o micro interprete o <CTRL> <RE- 
SET> como um erro (o <CTRL><C> 
e normalmente interpretado como tal), adi- 
cione as linhas seguintes ao programa do 
arquivo AUTORUN. 

45 PRINT "POKE 40286,35° 



46 PRINT "POKE 40287,216" 

Elimine o AUTORUN ja existente e 
execute o programa. O novo arquivo 
con I cm os dois POKE que mudam o 
comportamento do computador em re- 
lacao ao < RESET >. Mas, para que 
possamos tirar proveito dessa mudanca, 
uma rotina de erros deve ser inserida no 
programa principal: 

5 ONERR GOTO 1000 
1000 P = P + 1 
1010 IF P = 3 THEN PR* 6 
1020 PRINT CHRS (7);: RESUME 
NEXT 

Grave o programa alterado. Deshgue 
o computador e ligue-o novamente. 
Tente parar o programa... 

Pode ocorrer, por£m, que o curioso 
se lembre de olhar para o diretbrio do 
disco e carregar o seu programa direta- 
mente, sem executa-lo; assim, podera 
lista-lo. Para confundi-lo, inclua no no- 
me do programa, no momento de gra- 
var (SAVE), aiguns caracteres de con- 
trole, que ficarao invist'veis. Para fazer 
isto, basta digitar junto do nome do pro- 
grama um ou mais < CTRL> < letra > , 
onde a letra pode ser A, B etc. Evite o 
Ce o X. 
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CQMQ EDITAR LINHAS 



DE UM PROGRAMA BASIC 



OE FiOGRAMAS 



os mqvimentos do cursor 

q comando e dit 

consolipeasmodificacOes 



■ 



Os micros da linha ZX-81 possuem bons 
recursos de edicao. Com o comando 
EDIT e as teclas de movimentacao do 
cursor, voce pode altsrar ou duplicar 
rapidamente urn a linha de programs. 



Devido a sua natureza "conversacio- 
naJ", todos os interpretadores da lingua- 
gem BASIC incluem alguns recursos de 
edicao de programas, ou seja, teenicas 
de entrada e alteracao das linhas que o 
compoem. 

Como vimos em artigos anteriores 
sobre edicao de programas em outras li- 
nhas de microcomputadores, o primei- 
ro interpretador BASIC, desenvolvido 
na decada de 60 na Universidade de 
Dartmouth, nos EUA, fixou os recur- 
sos mais elementares de edicao: nume- 
racao, insercao, apagamento e listagem 
de linhas, Estes recursos, adotados pos- 
teriormente em todos os dialetos BASIC 
que surgiram, nao davam ao programa- 
dor a possibilidade de alterar caracteres. 
Assim, para corrigir um unico caracte- 
re errado, ele teria que digitar toda a li- 
nha novamente. 

Para poupa-lo desse trabalho, 
desenvolveram-se comandos como o 
EDIT, presentes nos micros da linha 
Sinclair, TRS-80 e TRS-Color. O co- 
mando EDIT dos micros da linha ZX-81 
opera em uma linha de cada vez. 



OIGITACAO DE PROGRAMAS 



No ZX-81, cada linha 6 digitada de 
uma vez, precedida de um numero. 

A parte inferior da tela do ZX-81 
destina-se a digitagao de linhas. Ao ser 
ligado, o computador exibe um cursor 
de texto — um retangulo em video in- 
verse — contendo a letra K. Esta e a 
chamada linha de edicao da tela. A me- 
dida que voce vai digitando a linha, por 
meio do teclado, este cursor vai se des- 
locando a frente dos caracteres. Durante 
o deslocamento, ele pode mudar de ti- 
po (passar para tipo L, tipo G, tipo F 
etc.). 

Quando se pressiona a tecla < EN- 
TER > ou < RETURN >, a linha e 



completada e inserida no ponto certo do 
programa. Enquanto isso nao ocorre, 
pode-se modificar a linha a vontade. 

Tres teclas de controle sao utilizadas 
para se proceder as modificacoes: as te- 
clas com as flechas para a esquerda e pa- 
ra a direita («- e -*), que devem ser acio- 
nadas simultaneamente com a tecla 

< SHIFT >, e a tecla de apagamento 
(chamada de DELETE ou RUBOUT, 
conforme a marca do computador, 
e que, no ZX-81, corresponde a 
pressao simultanea das teclas 9 e 

< SHIFT >). 

Ao ser acionada, a tecla de apaga- 
mento pode eliminar um caractere ou 
uma palavra-chave do BASIC de uma 
vez. O restante da linha se desloca para 
a esquerda, de modo a preencher os cla- 
ros deixados. 

O ZX-81 dispoe do modo de insercao 
automatico, ou seja, se digitarmos ca- 
racteres quando o cursor estiver no meio 
de uma linha, estes serao inseridos, por 
interm^dio do deslocamento do restan- 
te da linha para a direita. Para sobre- 
por caracteres (escrever sobre caracteres 
ja existentes), e necessario primeiro 
apaga-los. 



COMANDO EDIT 



Uma vez pressionada a tecla < EN- 
TER >, a linha digitada passa a fazer 
parte do programa, Se, depois disso, vo- 
ce" digitar apenas o seu numero, e pres- 
sionar <ENTER> de novo, ela sera 
apagada. Por outro lado, se voce digi- 
tar seu numero, seguido de novos co- 
mandos ou instrucoes, estes substituirao 
a linha existente no programa. 

Um recurso de edigao que faz falta 
no ZX-81 £ o comando DELETE (ou, 
ainda, DEL, em alguns computadores), 
que apaga grupos de linhas de uma vez 
s6. Os usuarios desse micro precisam 
sempre digitar os numeros de cada uma 
das linhas a serem apagadas, um a um, 
seguidos de < ENTER >. 

Para modificar uma linha ja existen- 
te, sem precisar redigita-la inteiramen- 
te, pode-se recorrer ao comando EDIT. 
Para isso e necessario entender o con- 
ceito de cursor de linhas. 



Se voce olhar para uma listagem de 
programa na tela, percebera que existe 
sempre um retangulo em video inverso, 
contendo o sinal de maior (>) em seu 
interior, e que aponta para uma das li- 
nhas na tela. Esse retangulo e o cursor 
de linhas. Para desloca-Io, basta pres- 
sionar uma ou mais vezes uma das te- 
clas com a flecha para cima ou para bai- 
xo (t ou ]■). 

Agora, se vocS pressi on ar simulta- 
neamente as teclas < SHIFT > e I, a li- 
nha apontada pelo cursor de linhas apa- 
recera na linha de edicao. 

Voce podera usar, entao, todos os 
procedimentos de edicao: movimenta- 
cao do cursor de texto, apagamento, in- 
sercao etc. Tudo funciona da mesma 
maneira, ate que voce pressione a tecla 
< ENTER > . Ao fazg-lo, a linha modi- 
ficada ira substituir a que foi chamada 
anteriormente pelo EDIT. 



DUPLICACAO DE LINHAS 



A duplicacao de linhas e um dos re- 
cursos mais interessantes do ZX-81. O 
numero da linha pode ser editado nor- 
malmente. Assim, se apenas ele for mo- 
dificado, a linha com o numero origi- 
nal mantem-se no programa, e a mes- 
ma linha, com nova numeracao, e" inse- 
rida no ponto correto. 

Por outro lado, se, al£m do numero 
da linha, tambem o seu conteiido for 
modificado, uma linha diferente sera 
automaticamente gerada. 

Portanto, para que uma linha possa 
ser editada pelo comando EDIT, ela pre- 
cise estar listada na tela (use o coman- 
do LIST numero, para isto). Desloque 
o cursor de linha ate ela, e pressione o 
comando EDIT. 

Para agilizar o processo de edicao de 
v arias linhas de um programa extenso, 
voce pode utilizar um pequeno truque. 
Em vez de pressionar repetidas vezes as 
teclas de controle do cursor de linhas, 
ate chegar a linha que voce deseja, digi- 
te o comando LIST, seguido do nume- 
ro dessa linha. Isto a colocara no alto 
da tela, com o cursor de linhas automa- 
ticamente apontado para ela. Basta, en- 
tao, pressionar o comando EDIT. 



SIMBOLOS 
GRAFICOS N 




SIMBOLOS GRAF COS 



ENTRADA PELO TECLADO 



AS FUNCOES 



CHR$ E STRING* 



TABELA DE REFERENDA 



Os micros da linha MSX dispdem de 
caracteres graficos que podem ser 
entrados diretamente pelo teclado ou 
usados dentro de um programa, Veja 
como explorar este recurso especial. 



Os microcomputadores da linha 
MSX sao extremamente versateis do 
ponto de vista da programaeao grafica. 
Em artigos anteriores, vimos como as te- 
clas graficas (SCREEN) podem ser pro- 
gramadas, em media e alta resolucao, 
por meio de instrucoes poderosas como 
LINE, CIRCLE, PAINT, PSET etc. 

O MSX apresenta, ainda, um recur- 
so grafico adicional que e pouco explo- 
rado. Sao os caracteres graficos, dispo- 
niveis para o programador por meio de 
dois procedimentos: entrada direta pe- 
lo teclado e insercao atraves das funcoes 
do BASIC CHRS e STRINGS. 

O que sao caracteres graLicos? Como 
voce ja sabe, os caracteres que aparecem 
no video tern codigos numericos intei- 
ros, entre e 255; cada caractere cor- 
responds, portanto, a um byte da me- 
moria do video. Parte dessa codificacao 
esta convencionada internacionalmente 
pelo chamado c6digo ASCII, que vai de 
32 a 126. Os c6digos de a 31 sao nor- 
malmente utilizados para func5es de 
controle do video, e dependent do tipo 
de computador . O mesmo acontece com 
os c6digos de 127 a 255. Nesta faixa, ca- 
da fabricante usou os c6digos de uma 
maneira, em geral para acomodar carac- 
teres em outros idiomas que nao o in- 
gles (e o caso do MSX, existente no Bra- 
sil) ou para especificar caracteres grafi- 
cos. Estes tamo podem ser tipos espe- 
ciais, para a imagem de um rosto sor- 
rindo ou uma nota musical, como blo- 
cos graficos formando linhas, angulos 
e cantos. 



GRAFICOS DA ROM 



Tais caracteres sao tambem chama- 
dos de graficos da ROM, pots ja vem 
pre-programados. No MSX, os caracte- 
res especiais ocupam duas faixas da ta- 
bela de caracteres: 



- a faixa de 1 a 31 

- a faixa de 144 a 254 

Nestas faixas, os caracteres graficos 
propriamente ditos encontram-se disper- 
ses em varios pontos da tabela, entre- 
meados com caracteres de outros idio- 
mas, com o alfabeto grego, simbolos 
matematicos etc. 

Os caracteres graficos que mais nos 
interessarao neste artigo sao os blocos 
empregados na formatacao de tabelas, 
de formularios de entrada ou na com- 
postcao de quaisquer outros desenhos 
formados por linhas retas. A utilizacao 
de caracteres graficos, nesses casos, tern 
a vantagem de nao complicar a progra- 
macao, misturando tela grafica com tex- 
to, o que nos permite recorrer a coman- 
dos mais simples, como o LOCATE, o 
PRINT, o INPUT etc. 



ENTRADA PELO TECLADO 



Assim como os caracteres convencio- 
nais do ASCII (demarcados sobre as te- 
clas do microcomputador), os caracte- 
res especiais e graficos podem ser entra- 
dos pelo teclado. Para isso, pressiona- 
se simultaneamente uma ou mais de 
tres teclas de funcao — < GRAPH >, 
<CODE> ou <SHIFT>— , com ou- 
tra tecla normal do teclado, Com isso, 
o caractere desejado aparece diretamen- 
te na tela (por exemplo, dentro de uma 
cadeia alfanumerica). 

Com o programa abaixo, voce vera 
como entrar caracteres pelo teclado. Ele 
desenha uma tabela simples na tela, 
usasdo blocos graficos, e depois coloca 
os nomes digitados pelo usuario nas li- 
nhas da tabela. 



200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 



CLS 

PRINT 
PRINT 
PRINT 
FOR 1-1 
PRINT 
PRINT 
NEXT I 
PRINT" I 
PRINT" L 
FOR 1-1 



No. 



Nome 



TO 5 



j: 



TO 6 

LOCATE 0,21: PRINT STRINGS {3 
0,32) 
320 LOCATE 0,21:LINE INPUT "NOM 



E : " i NS 

330 LOCATE 1 , CI*2) +1 : PRINT USIN 
G "i#";I; 

340 LOCATE 7, (1*2) +1 : PRINT LEFT 
S(N$,10) ; 
350 NEXT I 

360 LOCATE 0,21: PRINT TIM 
":END 

Os traces sao teclados na seguinte se- 
qiieneia: 

Linha 210: < GRAPH > R 

< GRAPH > - (4 vezes) 
< GRAPH > T 

< GRAPH > - (11 vezes) 
< GRAPH > Y 

Linha 220: < SHIFT >< GRAPH > 
Linha 230: < GRAPH > F 

< GRAPH > - (4vezes) 
< GRAPH > G 

< GRAPH > (11 vezes) 
<GRAPH> H 

Linha 250: como a linha 220 
Linha 260: como a linha 230 
Linha 280: como a linha 220 

Linha 290: < GRAPH > V 

< GRAPH > - (4 vezes) 
< GRAPH > B 

< GRAPH > - (11 vezes) 
< GRAPH > N 

Ha duas desvantagens nesta manei- 
ra de entrar caracteres graficos. Primei- 
ro, as teclas nao t§m qualquer marca- 
cao que auxilie o usuario a achar o gra- 
fico correto; assim, e precise consultar 
o manual, o que torna o processo bas- 
tante trabalhoso. Em segundo lugar, o 
programa nao pode ser listado em uma 
impressora nao grafica, ou que nao se- 
ja propria para o MSX. 



CARACTERES GRAFICOS NO PROGRAMA 



Para especificar caracteres graficos 
dentro de um programa, sem precisar 
digita-los diretamente, podemos usar as 
funcoes CHRS e STRINGS: com o nu- 
mero de eddigo do caractere desejado, 
elas permitem que os caracteres nor- 
mals, especiais e graficos com codigos 
na faixa de 32 a 254 sejam impressos na 
tela a partir de um programa. Por exem- 



Codigo 
1 



CARACTERES GRAFICOS DO MSX 



Teclas 
GRAPH ' 



Caraetere 
6 



2 


SHIFT GRAPH ' 


9 


3 


SHIFT GRAPH " 


¥ 


4 


SHIFT GRAPH C 


♦ 


5 


GRAPH " 


+ 


6 


GRAPH C 


♦ 


8 


SHIFT GRAPH 9 


B 


9 


GRAPH 





10 


SHIFT GRAPH 


■ 


11 


GRAPH M 


<f 


12 


SHIFT GRAPH M 


8 


13 


GRAPH ' 


; 


14 


SHIFT GRAPH ' 


A 


15 


GRAPH Z 


* 


16 


SHIFT GRAPH G 13 


t 


17 


GRAPH B 


1. 


18 


GRAPH T 


T 


19 


GRAPH H 


■t 


20 


GRAPH F 


h 


21 


GRAPH G 


+ 


. 22 


SHIFT GRAPH N 


1 


23 


GRAPH 


— 


24 


GRAPH R 


r 


25 


GRAPH Y 


n 


26 


GRAPH V 


L 


27 


GRAPH N 


J 


28 


GRAPH X 


X 


29 


GRAPH / 


I 


30 


GRAPH v 


\ 


31 


SHIFT GRAPH - 


■+■ 


169 


SHIFT GRAPH R 


r 


170 


SHIFT GRAPH Y 


~i 



188 



SHIFT GRAPH C 



Codigo 

192 


Teclas 
GRAPH U 


"aractere 
- 


193 


SHIFT GRAPH D 


% 


194 


GRAPH I 


u 


195 


SHIFT GRAPH 


n 


196 


GRAPH A 


s 


197 


SHIFT GRAPH I 


H 


198 


GRAPH J 


D 


199 


GRAPH D 


63 


200 


GRAPH L 


■I 


201 


SHIFT GRAPH L 


□ 


202 


SHIFT GRAPH J 


n 


203 


SHIFT GRAPH Q 


w 


204 


GRAPH Q 


s 


205 


GRAPH E 


H 


206 


SHIFT GRAPH E 


y 


207 


GRAPH W 


EJ 


208 


SHIFT GRAPH W 


a 


209 


SHIFT GRAPH S 


X 


210 


GRAPH S 


H 


211 


SHIFT GRAPH N 


E 


212 


SHIFT GRAPH F 


Q 


213 


SHIFT GRAPH V 


a 


214 


SHIFT GRAPH H 


H 


215 


SHIFT GRAPH P 


H 


219 


GRAPH P 


■ 


220 


GRAPH 


B 


221 


GRAPH K 


E 


222 


SHIFT GRAPH K 


1 


223 


SHIFT GRAPH U 


H 


248 


SHIFT GRAPH Z 


o 


249 


SHIFT GRAPH C 


• 


250 


SHIFT GRAPH X 


• 


254 


SHIFT GRAPH A 


H 




O repcrl6rio de caracteres graricos 

do MSX i muito variado: inclui desde tipox 

tspeciais, como uma nota musical 

(iu um roslo sorrindo, ate btocos graficos 

compondo linhas, angulos e cantos. 

Para tuira-los pelo teclado, orienle-se 

pelo quadro de referencia ao lado. Como 

voce pode observar, sera sempre necessario 

prrssionar, simuilaneamente, uma ou mais 

teclas de funcau e uma lecla normal. 




\ 



plo, para imprimir na tela a letra grega 
beta, digite: 

PRINT CHR$(225) 

Ou, entao, para tracar uma linha re- 
ta de dupla espessura na tela, use: 

PRINT STRINGS (32, 197) 

A funcao STRINGS (n,c) retorna 
uma cadeia de n caracteres com cddigo 
c. J a os caracteres graficos que se en- 
contram na faixa de 1 a 31 nao podem 
ser impressos da mesma maneira, pois 
estes codigos tern funcSes de controle 
do video. Para usa-los com a funcao 
CHRS, e necessario "avisar" o com- 
putador que o cddigo sera usado co- 
mo grafico. Para isso, sSo emprega- 
dos dois bytes: CHRS(l), seguido de 
CHR$(n + 64), onde n e o cddigo do ca- 
ractere grafico na tabela. Por exemplo, 
PRINT CHR$(1);CHR$(75) mostrara 



na tela o simbolo masculine 

Esse metodo funciona tamb^m para 
a faixa de codigos graficos que vai ate 
191 . O programa abaixo mostra na tela 
uma tabela de correspondencia: 

■10 KEY OFF:CLS:I-0 

20 FOB N-l TO 6 

30 I-I+1:IF I>191 THEN GOSUB 10 

0:END 

40 PHINT USING "!♦* ";I: 

50 PRINT CHR$U)+CHR$(I+64> :" " 

60 NEXT N 

70 PRINT i PRINT 

80 L-L+1:IF L<10 THEN 20 

90 GOSUB 100rL-0:GOTO 20 

100 LOCATE 0,22 

110 PRINT "PresBione qualguer t 

ecla p/cont>nuar" 

120 IF INKEYS="" THEN 120 

130 CLS:RETUHN 

Se voce' substituir tres linhas — 10, 
30 e 50 — , o programa servira tambem 



para mostrar os c6digos graficos de 128 
a 254. 

10 KEY OFF:CLS:I-127 

30 I-I+1:IF I>254 THEN GOSUB 

100:END 
50 PRINT CHR$(I) ;" " ; 

Caso pretenda utilizar um caractere 
grafico da faixa de 1 a 31 com freqiien- 
cia num programa, armazene-o em uma 
variavel alfanumerica, como mostra o 
exemplo abaixo. Os quatro simbolos dos 
naipes do baralho sao armazenados em 
N$ (e seus nomes em E$): 

10 CLS 

20 FOB 1-1 TO 4 

30 READ E$(I) 

40 NSU>-CHR$(l)+CHRSU+66) 

50 PRINT N$(I) ,E3(I) 

60 NEXT I 

70 DATA CopaB.OuroB.Paua.Espada 

a 



555 



COP/GO 



DiMAOWNA 2, 




O SPEC 




o 




Os recursos sonoros do Spectrum sao 
limitados, se considerarmos apenas 
o comando SOUND. Porern, com codigo 
de mSquina, poderemos produzir varies 
sons, de sirens a tiros de laser. 



Em geral, o enderecamento da me- 
m6ria e uma funcao do microprocessa- 
dor. Na maioria dos computadores 
domesticos, quando queremos usar urn 
aparelho externo — como uma impres- 
sora, urn televisor ou mesmo o teclado 
do computador — temos que faze-lo por 
meio de uma posicao de mem6ria que 
esta ligada a uma porta de saida, Porem, 
com micros que usam o Z-80, como o 
Spectrum, por exemplo, pode-se ter 
acesso direto as portas, tanto em BA- 
SIC, com os comandos IN e OUT, co- 
mo em codigo de maquina.com ineout. 



AFINAL, QUE E UMA PORTA? 



Uma porta e um canal de comunica- 
cao entre o microprocessador e o miin- 
do externo. Este inclui o teclado e tudo 
o que e periferico ao microprocessador, 
a RAM e a ROM. 

Ja tivemos oportunidade de ver co- 
mo in e usado para dar acesso ao tecla- 
do. Os comandos OUT e out funcionam 
de modo semelhante, s6 que, em vez de 
receber dados, enviam-nos aos periferi- 
cos. Ambos tern acesso bem mais ver- 
satil ao alto-falante do que o comando 
BASIC SOUND e podem ser usados, 
tambem, para controlar a moldura da 
tela. Entretanto, como o OUT e exces- 
sivamente lento, consideraremos apenas 
o comando out. 

Para gerar sons com out precisamos 
da velocidade da linguagem de mdqui- 
na. Eles sao obtidos por meio do movi- 
mento do cone do alto-falante para fora 
e para dentro. Movimentando-o uma 
vez, produzimos um clique, do tipo que 
se ouve ao ligar um aparelho de som. O 
truque esta em repetir o movimento 
muitas vezes, e rapidamente. 

Teremos, assim, uma sucessio de cli- 
ques, que provocam um efeito similar 
a um zumbido. Quanto mais veloz for 
o movimento de vaivem do cone, mais 
agudo sera o som resultante. 

A rotina Assembler apresentada a se- 
guir produz um som cuja tonalidade vai 
aumentando. Digite CLEAR 64599 e de- 
pots as linhas: 

10 HEM org 64600 
20 REM Id a, {23624) 
■ 30 REM rrca 




II 



CODIGODEMAQUINA 



_____ A PORTA 254 

INSTRUCOES SHIFT E ROTATE 



USO DO ALTO-FALANTE 



LA GOS DE PAUSA 
ACERTE TOM 



MODIFICACAQ DA MOLDURA 
A ESCOLHA DA COR 



ACERTO DO TEMPO 



SINTONIA FINA 



COMO DOBRAR A FREQUENCIA 



40 HEM rrca 

50 HEM rrca 

60 REM Id b,0 

REM loop push be 

80 REM xor 16 

90 REM out 254, a 

100 REM pause nop 

110 REM nop 

120 REM djnz pause 

130 REM pop be 

140 REM djnz loop 

150 REM ret 

A porta 254, que controla o alto- 
falante, controla tambem a moldura da 
tela. Para que urn comando out nao mo~ 
difique a moldura ao produzir urn som, 
utiliza-se uma rotina em codigo destina- 
da a evitar o problema. 

Inicialmente, coloca-se no acumula- 
dor o valor da variavel do sistema situa- 




do na posicao 23624 da memdria. As 
cores do Spectrum tern codigos que vao 
de a 7. Normalmente, os bits que con- 
trolam a cor sao os bits tres, quatro e 
cinco. Contudo, quando estamos con- 
trolando a moldura via porta 254, os 
bits zero, um e dois encarregam-se da 
rnodificacao das cores. 

Assim, para se ter a certeza de que 
a cor da moldura nao sera modificada 
pelo efeito sonoro, os bits tres, quatro 
e dnco devem ser destocados tres posi- 
coes para a direita (para o lugar dos bits 
zero, um e dois). 



SHIFT E flOTATE 



O deslocamento dos bits pode ser 
executado por varios comandos. Utili- 
zamos aqui rrca (rotate right with carry, 
on the acumulator, expressao em ingles 
que significa rotacao para a direita com 
"vai um" no acumulador), Essa instru- 
cao movimenta todos os bits que estao 
no acumulador uma posicao para a di- 
reita. E chamada de rotacao porque co- 
loca o conteudo do bit zero no bit sete, 
fazendo-o "dar a volta", por assim di- 
zer. Um comando SHIFT — desloca- 



mento — moveria todo o conteudo do 
acumulador um bit para a direita, mas 
preencberia o bit de reserva com zero. 
Seu emprego e mais adequado a opera- 
c6es aritmeticas: um SHIFT para a es- 
querda multiplica um niimero por dois, 
enquanto um SHIFT para a direita o di- 
vide por dois. 

Aqui, porem, utilizamos uma rotacao 
porque queremos deslocar apenas tres 
dos bits. O conteudo dos demais nao nos 
interessa. O comando rrca ainda copia 
o conteudo do bit zero no bit carry — 
"vai um". Mais uma vez, nao importa 
o valor do carry. 

Para deslocar os bits de cor da mol- 
dura tres posigoes para a direita, 
emprega-se rrca tres vezes, o que equi- 
vale a dividir a cor da moldura por oi- 
to. Mas quando a cor — normalmente 
um numero entre e 7 — se encontrava 
nos bits tres, quatro e cinco, estava mul- 
tiplicada por oito. 

Agora, quando usarmos o comando 
out, ele especificara a mesma cor de 
moldura que havia antes, e nenhuma 
mudanca ocorrera. 



ACERTE OS C0NTAD0RES 



O registro B funciona como um con- 
tador duplo. Para comecar, colocare- 
mos nele, e este valor sera guardado 
na pilha por push be. O registro B nao 
pode ser guardado sozinho na pilha, ja 
que os comandos de push e pop agem 
apenas em pares de registros. Precisa- 
mos, assim, guard ar B juntamente com 
C. Como nao usaremos o registro C, is- 
so nio afetara o programa. 



COMO PRODUZIR SONS 



O bit quatro da porta 254 controla o 
alto-falante. Alternando o valor desse 
bit, movimenta-se o cone do alto-falan- 
te, produzindo som. 

Alterna-.se o bit quatro por meio da 
opera?ao ldgica "ou exclusivo". Faze- 
mos um "ou exclusivo" entre o valor do 
acumulador e dezesseis. Assim, se o bit 
quatro estiver ligado, valendo 1, ele se- 
ra desligado, passando a valer — ouj 
vice-versa. 



21 CODIGODEMAOUINA 



II 1 



O out 254, a envia o conteiido do acu- 
mulador via porta 254. Em muitos As- 
semblers comerciais os comandos out e 
in precisam de colchetes envolvendo o 
niimero da porta. 



ACERTE TOM 



A instrucao nop, com o c6digo hex 
0, significa *'sem operacao" — no 
operation. Ela nao faz absolutamente 
nada, mas, como leva urn certo tempo 
para ser executada — aproximadamen- 
te um microssegundo, ou seja, urn mi- 
lionesimo de segundo — , atrasa o mi- 
croprocessador na realizacao do laco. 
Por essa razao, e usada duas vez.es nes- 
te programa. A velocidade com que o 
microprocessador executa o laco contro- 
la a frequencia de vibracao do cone do 
alto-falante e, eonsequentemente, a to- 
nalidade do som produzido. 

Como voce" pode observar, os nop 
nao sao executados apenas duas vezes. 
A instrucao djnz (decrementa e salta se 
nao for zero) promove varias repeticoes 
da pausa. 

A instrucao djnz opera com base no 
valor do registro B. Assim, na primeira 
execucao do la^o, ela decrementa o va- 
lor de B, que passa de para 255. Em 
seguida, o laco e executado mais 255 ve- 




B 



Quantas portas existem? 

Teoricamente, existem 64K portas 
— este e o maior numero que pode ser 
enderecado por um par de registros de 
oitobits. Napratica, porem, utilizam-se 
apenas umas poucas portas. Quando 
seu Spectrum esta na configuragSo ori- 
ginal, somente a porta 254 € usada. 

comando In permite empregar di- 
ferentes parametros para dirigir a por- 
ta para as varias regioes do teclado. 
Neste artigo, recorremos a bits distin- 
tos, da mesma porta, para controlar pe- 
rifericos diversos. 

Se seu Spectrum for conectado a 
perifericos nao usuais, talvez voce" te- 
nha a possibilidade de aproveitar outras 
portas. Conhecendo razoavelmente 
eletrdnica, podera, por exemplo, ligar 
seu micro a um si stem a de aquecimen- 
to ou a um sintetizador, utilizando por- 
tas diferentes. 



zes, ate que B valha novamente. 

Uma vez conclufdo o laco, o valor no 
topo da pilha e recuperado com pop e 
colocado no par BC. Com a recupera- 
cao do valor original de B, djnz o de- 
crementa e o microprocessador entra 
mais uma vez no lago. Esse processo le- 
va o valor de BC de volta a pilha. As- 
sim, o contador que fica na pilha e 
decrement a do cad a vez que o micropro- 
cessador executa o laco, e o valor ini- 
cial de B, que determina o numero de 
execucoes, torna-se menor. A medida 
que o numero de execucoes da pausa di- 
minui, a frequencia do som aumenta. 



MOLDURA COM SETE CORES 



Para especificar a cor da moldura uti- 
lizando o comando BASIC BORDER, 
atribufmos a ela um valor qualquer en- 
tre e 7. Toda a moldura fica, entao, 
com a cor correspondente. 

A rotina seguinte usa cddigo de ma- 
quina para criar uma moldura com sete 
cores. Poderiamos trabalhar com oito 
cores, mas nao faria sentido ter na mol- 
dura uma tonalidade identica a da tela 
principal. 



10 


REM 


org 64600 


2 


HEM 


redo halt 


30 


REM 


xor a 


40 


REM 


loop out 254 


50 


REM 


Id b.205 


60 


REM 


pause Id e . 2 


70 


REM 


inner dec e 


80 


REM 


jr nz, inner 


90 


REM 


djnz pause 


100 


REM 


Id d , a 


110 


REM 


Id a,$7F 


120 


REM 


in a, 254 


130 


REM 


rra 


140 


REM 


rta nc 


150 


REM 


Id a,d 


160 


REM 


inc a 


170 


REM 


cp 7 


180 


REM 


jr nz , loop 


190 


REM 


jr redo 



COMO SINCRONIZAR A TELA 



A instrucao halt aguarda a ocorr&n- 

cia de uma interrupcao para, depois, 
continuar o programa. No Spectrum, a 
interrupcao ocorre a cada varredura da 
tela. Assim, halt inicia a rotina quando 
a varredura comeca no alto da tela, sin- 
cronizando a posicao da moldura com 
a borda superior da tela de TV. 

A instrucao xor a executa um "ou ex- 
clusive" entre o acumulador e ele mes- 
mo, o que constitui uma forma rapida 
de zerar o acumulador, O e enviado 
pela porta 254, Como zero, em lingua- 
gem de maquina e em BASIC, corres- 





no registro E, que recebe o valor 2 atra- 
vis de Id e,2, sendo decrement ado por 
dec e. A instrucao jrnz, inner realiza um 
salto relativo em direcao ao r6tulo in- 
ner, se o resultado nao for zero. Assim, 
a cada execucSo do lago extemo, o laco 
interne & executado duas vezes, 

O laco extemo repete-se 205 vezes 
com o registro B. Id b,205 coloca este 
valor no registro B, assim como o djnz 
que o decrementa, saitando enquanto o 
resultado nao for zero. Nenhuma instru- 
cao deste tipo opera com o registro E; 
por causa disso, a subtracao e o salto 
precisam ser feitos em duas instrucoes 
separadas. 

Se alterarmos tais valores, veremos 
que o valor colocado em E modifica 
bastante a largura das bandas, enquan- 
to o valor colocado no registro B tern 
um efeito bem menor. 



ponde a preto, a porcao superior da tela 
adquire esta cor. 



AJUSTE A PAUSA 



Nesta rotina o tempo 6 essential. O 
comprimento da pausa determina a lar- 
gura das bandas coioridas da moldura. 
Controla-se a pausa por meio de dois la- 
cos: o interno, que acerta o tempo gros- 
seiramente; e o extemo, que o sintoniza 
de rnodo mais refinado. 

O laco interno e executado com base 



A 0C0RRENC1A DE UM BREAK 



Certamente, em algum momento, de- 
sejaremos sair desse lago. Para faze-lo 
sem desligar seu micro, programe uma 
rotina de saida. 

A que apresentamos aqui verifica se 
a tecla < BREAK > foi pressionada, 
por meio da instrucao in. 

Inicialmente, porern, Id d,a coloca o 
valor do acumulador no registro D. Por 
um instante o acumulador sera usado 
para outras coisas, e o registro D ficara 
desocupado, podendo servir de registro 
temporario, 

Em seguida, o acumulador e carrega- 
do com o valor hexadecimal 7F. Esse 
niimero especifica o canto inferior es- 
querdo do teclado. A instrucao in a, 254 
recebe o padrao de bits correspondente 
ao estado atual dessa parte do teclado, 
colocando-o no acumulador. 

O bit zero representa o estado da te- 
cla < BREAK > . Se esta nao estiver sen- 
do pressionada, ele valera 1 ; se estiver, 
seu valor sera igual a 0. 

Para verificar isso, execute uma ro- 
tacao, jogando o bit zero — que fica no 
extremo direito do byte — para o carry 
bit e checando, depois, o sinalizador 
carry. A instrucao rra promove a rota- 
cao e rts nc retorna ao BASIC quando 
n8o ha um "vai um" — carry igual a 
zero ou "not carry". Assim, quando 
pressionar < BREAK > e o bit zero pas- 
sar a valer zero, rts provocara o fim da 
rotina; caso contrario, esta coniinuara 
funcionando. 

Lembre-se de que um retorno condi- 
cionaJ tern o mnem6nico rts apenas em 
nosso Assembler. Outros Assemblers 
utilizam a forma ret. 



,- 



COMPLETE CiRCULO 



Agora que temos uma saida da reti- 
na, o valor do acumulador e recupera- 
do por Id a,d, ja que estava tempora- 
riamente em D. 

A e incrementado para especificar a 
cor seguinte. A instrucao emp 7 compa- 
ra o resultado com 7. Este e o mimero 
correspondente ao branco, cor da tela 
principal. Se o mimero no acumulador 
nao e sete, jrnzjoop volta para enviar 
a cor da pr6xima banda. Quando este 
laco tiver contado de a 7, o micropro- 
cessador vai a instrucao jr redo, que re- 
torna ao initio do programs, a espera 
de uma nova varredura da tela. 

Voce pode estar estranhando o fato 
de nao produzir sons por acidente ao 
mudar a cor da moldura. A rotina nao 
afeta o bit que controla o alto-falante. 
O maior mimero que enviamos pela por- 
ta 254 foi 7, quando precisariamos de, 
no minimo, 16 para movimentar o alto- 
falante. 



EFEITOS SONOROS 



Veremos agora como criar urn efeito 
sonoro mais complexo, com o coman- 
do out. A rotina apresentada a seguir 
produz um som de disparo laser, usan- 
do a combinacao de um som cuja fre- 
quencia e crescente com um som de 
frequencia decrescente. 
10 REM org 64600 



20 HEM 


Id a, C23624) 


3 *IEM 


rrca 


40 HEM 


rrca 


50 REM 


rrca 


60 REM 


Id b,0 


70 REM 


loop push be 


80 REM 


xor 510 


90 REM 


out 2 54, a 


100 REM 


push af 


110 REM 


xor a 


120 REM 


sub b 


130 REM 


Id b,a 


140 REM 


pop af 


150 REM 


pauaea nop 


160 REM 


djnz paused 


170 REM 


xor S10 


1B0 REM 


out 254, a 


190 REM 


pop be 


200 REM 


push be 


210 REM 


pauseb nop 


220 REM 


djnz pauseb 


230 REM 


pop be 


240 REM 


djnz loop 


250 REM 


ret 


As quatro primeiras instrucoes sao 


exatamente iguais as do outro progra- 


ms de som. Tern a funcao de preservar 


a moldura. 


As duas seguintes — que estabelecem 


os valores initiais de dois contadores, 



um no registro B e outro colocado na 
pilha a partir do registro B — tambem 
sao iguais. O mesmo ocorre com as ou- 
tras duas, que usam "ou exclusivo" en- 
tre os bits quatro e dezesseis e mandam 
o resultado pela porta 254. Desta vez, 
porem, xor e seguido de S10 — 16, em 
hex. Isto produz o som. 

O push guarda o conteudo do acu- 
mulador na pilha, junto com o registro 
F. Os registros s6 podem ser guardados 
em pares. A instrucao xor a limpa o acu- 
mulador e sub b subtrai B de — con- 
teudo do acumulador. Na pratica, 
porem, inverte-se o conteudo de B. 
Quando B & 255, obtemos 1 como resul- 
tado da subtracao; quando B £ 1 , obte* 
mos como resultado 255. 

O Id b,a coloca o resultado da sub- 
tracao de volta em B. O acumulador que 
estava na pilha e novamente recupera- 
do, retornando ao acumulador. 

Temos, entao, um laco de pausa 
cu ja duragao depende do conteudo de B 
— lembre-se de que djnz decrementa o 
registro B e verifica se o resultado e ze- 
ro. O valor do bit quatro e invertido e 
enviado ao alto-falante. 

O pop recupera da pilha o valor ini- 
tial de B. Como este valor sera utiliza- 
do mais adiante, e guardado novamente 
na pilha, depots de ter sido copiado em 
B. Agora ele se encontra, portanto, na 
pilha e em B. 

A pr6xima pausa depende desse va- 
lor inicial de B, que mais uma vez £ re- 
cuperado da pilha. O mesmo ocorre 
sempre que se executa uma instrucao 
djnz, para restaurar o valor de B. Quan- 
do o processador sai de um laco djnz, 
o valor de B tern que ser zero. 

O valor inicial de B e, entao, dimi- 
nuido. Nao sendo zero, o processador 
retorna ao initio do laco e executa-o no- 
vamente, com um valor menor que o de 
B. Na passagem 256, quando B se tor- 
na 0, o processador pa,ssa a instrucao ret 
e retorna ao BASIC. 

Voce vera que o laco pausea e execu- 
tado 256 vezes na primeira passagem, 
uma vez na segunda e uma vez mais a 
cada nova passagem. O laco pauseb, por 
outro lado, e feito 256 vezes na primei- 
ra passagem e uma vez a menos a cada 
nova volta. 



ADICA0 DE SONS NATURAIS 



Os sons que os computadores produ- 
zem parecem arti ficiais porque sao mui- 
to puros. Instrumentos musicais e outros 
aparelhos que produzem sons tendem a 
ser bastante irregulares na maneira de 
produzi-los. Mas e justamente esta carac- 
teristica de acaso que lhes assegura efei- 




FAQA MUSICA NO SPECTRUM 

O codigo out permits a produgao de 
miisica em seu micro. Mas esteja pre- 
parade: n§o e facil executar os ajustes 
necessarios para obter a frequincia 
correta. 

O uso de uma rotina com dois para- 
met^os — relacionados £ frequencia e 
a duragao — simplifica bastante a ta- 
refa. E esta rotina existe na ROM. Cha- 
mada de rotina BEEP, corneca no en- 
dereco 03fS. Existe ainda uma rotina 
adicional chamada BEEPER, que utiliza 
o valor em HL, para controlar a frequen- 
cia, e o valor em DE, para controlar a 
duragao. 

O valor que se deve usar em HL e 
dado por 437500/f-301 1 25, onde f e 
a frequencia da nota. Multiplicando a 
frequencia pela duragao desejada, 
obt6m-se o valor a ser colocado em DE. 
Com este m^todo, n3o e preciso obser- 
ver o limite usual de 1 segundos para 
a duracao da nota. 

Se voce chamar a rotina BEEP dire- 
tamente, deverS colocar na pilha os 
mesmos valores de duracao e frequen- 
cia que sao empregados num coman- 
do SOUND comum. 



tos tao agradaveis. Um instrumento nao 
toca apenas o som fundamental, mas 
tambem os harmorucos. 

Existe uma maneira de introduzir um 
elemento de acaso nos sons produzidos 
pelo Spectrum. A RAM, entre 16384 e 
32767, fica em circuitos integrados que 
sio geralmente interrompidos por um 
dispositivo que cuida da tela de TV e 
executa ainda outras tarefas. 

Normaimente, essas interrupcoes sao 
quase imperceptfveis, de tao curtas — 
em geral duram uns poucos microsse- 
gundos. Mas a relapSo entre os sons e 
o tempo e tao estreita que o ouvido po- 
de captar variagoes minimas. Assim, co- 
locando o programa gerador de sons 
nessa area da memoria, eles soarao bem 
mais naturals — e terao uma duracao 
um pouco maior. 

No nosso caso, a experiencia nao po- 
dera ser feita, pois nosso Assembler ocu- 
pa essa area da memdria. Contudo, se 
nao estiver usando uma impressora, ten- 
te montar o programa em seu buffer, ca- 
so ele caiba ali. O buffer vai de 23296 
a 23532 — assim, use 23296 como ori- 
gem. Nao t preciso proteger esse espa- 
co, pois o buffer esta a salvo de ser 
apagado pelo BASIC. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



APL1CAC0ES 

A dificuldade de preparar um texto e coisa do passado. Resolva seus 
velhos problemas com um programa editor. 

CODIGO DE MAQUINA 

Se voce e usuario do Spectrum ou do TRS-Cotor, veja como funciona o gerador 
grafico de nossos programas de animagao. 

PROGRAMACAO BASIC 

Complete o cenario montado com UDG. E aproveite para 
examinar algumas ideias a respeito de animacao e gravacao. 

PERIFERICOS 

Seu computador pode se comunicar com outros. 
O modem e um bom elo de ligacio. 




HHH ■■ 



